home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / e / AmSp4E.lha / AmSp_Example4.e < prev    next >
Text File  |  1998-02-05  |  975b  |  35 lines
  1. /******************************
  2. *******************************      Used:
  3. ** example 4 for AmosBobs.m  **
  4. **                           **      - mGetIBPalette
  5. ** Mouse as bobs.            **      - mLoadIB
  6. **                           **      - mEraseIB
  7. ** (C) 1999 By Krzys Cmok    **      - mIB
  8. *******************************
  9. ******************************/
  10.  
  11. MODULE '*amosbobs',             /* open module for amos bobs */
  12.     'intuition/screens'    /* open module for screens */
  13.  
  14. PROC main()
  15. DEF databank,s:PTR TO screen          /* definition of datas (databank) and screen (s) */
  16.  
  17. /* load willy.abk file */
  18. IF (databank:=mLoadIB('willy.abk'))=0
  19.     WriteF('Can\at load willy.abk\n')
  20.     CleanUp()
  21. ENDIF
  22.  
  23. s:=OpenS(320,200,4,0,'Example 4');
  24.  
  25. mGetIBPalette(databank,s)      /* palette to screen */
  26.  
  27. REPEAT
  28. mIB(s.rastport,databank,1,s.mousex,s.mousey,10); WaitTOF()         /* now mouse! */
  29. UNTIL Mouse()=1
  30.  
  31. CloseS(s)
  32. mEraseIB(databank)                    /* clean memory */
  33.  
  34. ENDPROC
  35.